home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ MSDOSSYS 2.xpl < prev    next >
Encoding:
Text File  |  1999-04-05  |  2.6 KB  |  107 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="Advanced Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable "Boot old MS-DOS version" in menu"
  8. "TEXT 2"="Enable Network"
  9. "TEXT 3"="Enable logging"
  10. "TEXT 4"="Load system files at top of 640 K"
  11. "TEXT 5"="Start in "Safe Mode" on next boot"
  12. "DESCRIPTION 1"="Some boot-options for Windows 95."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  16. "COMMENT 2"="Version 1.1"
  17. "COMMENT 3"=" "
  18. "COMMENT 4"="Thanks to David Goodenough (dpg@ix.netcom.com) for the fix"
  19. "COMMENT 5"=" "
  20. "COMMENT 6"="--#--"
  21.  
  22.  
  23. 'Declaration of some constants
  24. sF="C:\MSDOS.SYS"
  25. sO="OPTIONS"
  26.  
  27. 'Called when the Plugin is started
  28. Sub Plugin_Initialize
  29.  If GetWinVer=1 or GetWinVer=3 then
  30.   Call FileSetAttribute(sf,"S-")
  31.   Call FileSetAttribute(sf,"R-")
  32.   Call FileSetAttribute(sf,"H-")
  33.  
  34.   'Fix #1
  35.   'i=IniReadValue(sf,so,"MultiBoot")
  36.  
  37.   i=IniReadValue(sf,so,"BootMulti")
  38.   if i=1 then SetUIElement 1,true
  39.  
  40.   i=IniReadValue(sf,so,"Network")
  41.   if i=1 then SetUIElement 2,true
  42.  
  43.   i=IniReadValue(sf,so,"DisableLog")
  44.   if i=0 or IsEmpty(i) then SetUIElement 3,true
  45.  
  46.   i=IniReadValue(sf,so,"LoadTop")
  47.   if i=1 then SetUIElement 4,true
  48.  
  49.   i=IniReadValue(sf,so,"BootFailSafe")
  50.   if i=1 then SetUIElement 5,true
  51.  else
  52.   Disable
  53.  end if
  54. End Sub
  55.  
  56. 'Called when the Plugin should validate the Data the user has entered
  57. Sub Plugin_CheckData(ElementIndex)
  58. End Sub
  59.  
  60. 'Called when the Plugin should apply the changes
  61. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  62.  b=GetUIElement(1)
  63.  if b=true then
  64.   Call IniWriteValue(sf,so,"BootMulti",1)
  65.  else
  66.   Call IniWriteValue(sf,so,"BootMulti",0)
  67.  end if
  68.  
  69.  b=GetUIElement(2)
  70.  if b=true then
  71.   Call IniWriteValue(sf,so,"Network",1)
  72.  else
  73.   Call IniWriteValue(sf,so,"Network",0)
  74.  end if
  75.  
  76.  b=GetUIElement(3)
  77.  if b=true then
  78.   Call IniWriteValue(sf,so,"DisableLog",0)
  79.  else
  80.   Call IniWriteValue(sf,so,"DisableLog",1)
  81.  end if
  82.  
  83.  b=GetUIElement(4)
  84.  if b=true then
  85.   Call IniWriteValue(sf,so,"LoadTop",1)
  86.  else
  87.   Call IniWriteValue(sf,so,"LoadTop",0)
  88.  end if
  89.  
  90.  b=GetUIElement(5)
  91.  if b=true then
  92.   Call IniWriteValue(sf,so,"BootFailSafe",1)
  93.  else
  94.   Call IniWriteValue(sf,so,"BootFailSafe",0)
  95.  end if
  96.  
  97.  
  98.  Restart
  99. End Sub
  100.  
  101. 'Called when the Plugin is about to be removed from memory
  102. Sub Plugin_Terminate
  103.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  104.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  105.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  106. End Sub
  107.